home *** CD-ROM | disk | FTP | other *** search
/ Enter 2004 January / enter-2004-01.iso / files / maxima-5.9.0.exe / {app} / share / maxima / 5.9.0 / src / numerical / slatec / de1.lisp < prev    next >
Encoding:
Text File  |  2003-02-09  |  27.7 KB  |  421 lines
  1. ;;; Compiled by f2cl version 2.0 beta 2002-05-06
  2. ;;; 
  3. ;;; Options: ((:prune-labels nil) (:auto-save t) (:relaxed-array-decls t)
  4. ;;;           (:coerce-assigns :as-needed) (:array-type ':simple-array)
  5. ;;;           (:array-slicing nil) (:declare-common nil)
  6. ;;;           (:float-format double-float))
  7.  
  8. (in-package "SLATEC")
  9.  
  10.  
  11. (let ((ntae10 0)
  12.       (ntae11 0)
  13.       (ntae12 0)
  14.       (nte11 0)
  15.       (nte12 0)
  16.       (ntae13 0)
  17.       (ntae14 0)
  18.       (xmax 0.0)
  19.       (ae10cs (make-array 50 :element-type 'double-float))
  20.       (ae11cs (make-array 60 :element-type 'double-float))
  21.       (ae12cs (make-array 41 :element-type 'double-float))
  22.       (e11cs (make-array 29 :element-type 'double-float))
  23.       (e12cs (make-array 25 :element-type 'double-float))
  24.       (ae13cs (make-array 50 :element-type 'double-float))
  25.       (ae14cs (make-array 64 :element-type 'double-float))
  26.       (first nil))
  27.   (declare (type f2cl-lib:logical first)
  28.            (type (simple-array double-float (64)) ae14cs)
  29.            (type (simple-array double-float (25)) e12cs)
  30.            (type (simple-array double-float (29)) e11cs)
  31.            (type (simple-array double-float (41)) ae12cs)
  32.            (type (simple-array double-float (60)) ae11cs)
  33.            (type (simple-array double-float (50)) ae13cs ae10cs)
  34.            (type double-float xmax)
  35.            (type f2cl-lib:integer4 ntae14 ntae13 nte12 nte11 ntae12 ntae11
  36.             ntae10))
  37.   (f2cl-lib:fset (f2cl-lib:fref ae10cs (1) ((1 50))) 0.03284394579616699)
  38.   (f2cl-lib:fset (f2cl-lib:fref ae10cs (2) ((1 50))) -0.01669920452031363)
  39.   (f2cl-lib:fset (f2cl-lib:fref ae10cs (3) ((1 50))) 2.845284724361347e-4)
  40.   (f2cl-lib:fset (f2cl-lib:fref ae10cs (4) ((1 50))) -7.563944358516208e-6)
  41.   (f2cl-lib:fset (f2cl-lib:fref ae10cs (5) ((1 50))) 2.798971289450859e-7)
  42.   (f2cl-lib:fset (f2cl-lib:fref ae10cs (6) ((1 50))) -1.3579018285345307e-8)
  43.   (f2cl-lib:fset (f2cl-lib:fref ae10cs (7) ((1 50))) 8.34359620204047e-10)
  44.   (f2cl-lib:fset (f2cl-lib:fref ae10cs (8) ((1 50))) -6.37097172764025e-11)
  45.   (f2cl-lib:fset (f2cl-lib:fref ae10cs (9) ((1 50))) 6.007247608811861e-12)
  46.   (f2cl-lib:fset (f2cl-lib:fref ae10cs (10) ((1 50))) -7.022876174679773e-13)
  47.   (f2cl-lib:fset (f2cl-lib:fref ae10cs (11) ((1 50))) 1.0183026737036875e-13)
  48.   (f2cl-lib:fset (f2cl-lib:fref ae10cs (12) ((1 50))) -1.76181290343088e-14)
  49.   (f2cl-lib:fset (f2cl-lib:fref ae10cs (13) ((1 50))) 3.250828614235361e-15)
  50.   (f2cl-lib:fset (f2cl-lib:fref ae10cs (14) ((1 50))) -5.07177002550582e-16)
  51.   (f2cl-lib:fset (f2cl-lib:fref ae10cs (15) ((1 50))) 1.6651773870432943e-17)
  52.   (f2cl-lib:fset (f2cl-lib:fref ae10cs (16) ((1 50))) 3.1667538907975146e-17)
  53.   (f2cl-lib:fset (f2cl-lib:fref ae10cs (17) ((1 50))) -1.5884037636641418e-17)
  54.   (f2cl-lib:fset (f2cl-lib:fref ae10cs (18) ((1 50))) 4.1755132561380187e-18)
  55.   (f2cl-lib:fset (f2cl-lib:fref ae10cs (19) ((1 50))) -2.892347749707142e-19)
  56.   (f2cl-lib:fset (f2cl-lib:fref ae10cs (20) ((1 50))) -2.800625903396608e-19)
  57.   (f2cl-lib:fset (f2cl-lib:fref ae10cs (21) ((1 50))) 1.322938639539271e-19)
  58.   (f2cl-lib:fset (f2cl-lib:fref ae10cs (22) ((1 50))) -1.8044474441773015e-20)
  59.   (f2cl-lib:fset (f2cl-lib:fref ae10cs (23) ((1 50))) -7.905384086522617e-21)
  60.   (f2cl-lib:fset (f2cl-lib:fref ae10cs (24) ((1 50))) 4.4357113663695696e-21)
  61.   (f2cl-lib:fset (f2cl-lib:fref ae10cs (25) ((1 50))) -4.2641039949781206e-22)
  62.   (f2cl-lib:fset (f2cl-lib:fref ae10cs (26) ((1 50))) -3.920101766937117e-22)
  63.   (f2cl-lib:fset (f2cl-lib:fref ae10cs (27) ((1 50))) 1.5273780513439944e-22)
  64.   (f2cl-lib:fset (f2cl-lib:fref ae10cs (28) ((1 50))) 1.0248495270493725e-23)
  65.   (f2cl-lib:fset (f2cl-lib:fref ae10cs (29) ((1 50))) -2.134907874771434e-23)
  66.   (f2cl-lib:fset (f2cl-lib:fref ae10cs (30) ((1 50))) 3.2391394751600283e-24)
  67.   (f2cl-lib:fset (f2cl-lib:fref ae10cs (31) ((1 50))) 2.1421837622998896e-24)
  68.   (f2cl-lib:fset (f2cl-lib:fref ae10cs (32) ((1 50))) -8.234609419601017e-25)
  69.   (f2cl-lib:fset (f2cl-lib:fref ae10cs (33) ((1 50))) -1.5246528296458095e-25)
  70.   (f2cl-lib:fset (f2cl-lib:fref ae10cs (34) ((1 50))) 1.378208282460639e-25)
  71.   (f2cl-lib:fset (f2cl-lib:fref ae10cs (35) ((1 50))) 2.1313112028339481e-27)
  72.   (f2cl-lib:fset (f2cl-lib:fref ae10cs (36) ((1 50))) -2.0126496515264844e-26)
  73.   (f2cl-lib:fset (f2cl-lib:fref ae10cs (37) ((1 50))) 1.9955356622633583e-27)
  74.   (f2cl-lib:fset (f2cl-lib:fref ae10cs (38) ((1 50))) 2.798995808984004e-27)
  75.   (f2cl-lib:fset (f2cl-lib:fref ae10cs (39) ((1 50))) -5.534511845389627e-28)
  76.   (f2cl-lib:fset (f2cl-lib:fref ae10cs (40) ((1 50))) -3.8849953961599687e-28)
  77.   (f2cl-lib:fset (f2cl-lib:fref ae10cs (41) ((1 50))) 1.1213044345073597e-28)
  78.   (f2cl-lib:fset (f2cl-lib:fref ae10cs (42) ((1 50))) 5.566568152423741e-29)
  79.   (f2cl-lib:fset (f2cl-lib:fref ae10cs (43) ((1 50))) -2.0454829298104998e-29)
  80.   (f2cl-lib:fset (f2cl-lib:fref ae10cs (44) ((1 50))) -8.453813992712335e-30)
  81.   (f2cl-lib:fset (f2cl-lib:fref ae10cs (45) ((1 50))) 3.565758433431291e-30)
  82.   (f2cl-lib:fset (f2cl-lib:fref ae10cs (46) ((1 50))) 1.3836538721256345e-30)
  83.   (f2cl-lib:fset (f2cl-lib:fref ae10cs (47) ((1 50))) -6.062167864451372e-31)
  84.   (f2cl-lib:fset (f2cl-lib:fref ae10cs (48) ((1 50))) -2.4471980439893132e-31)
  85.   (f2cl-lib:fset (f2cl-lib:fref ae10cs (49) ((1 50))) 1.0068506409339986e-31)
  86.   (f2cl-lib:fset (f2cl-lib:fref ae10cs (50) ((1 50))) 4.6236855550148703e-32)
  87.   (f2cl-lib:fset (f2cl-lib:fref ae11cs (1) ((1 60))) 0.2026315064707889)
  88.   (f2cl-lib:fset (f2cl-lib:fref ae11cs (2) ((1 60))) -0.07365514099120313)
  89.   (f2cl-lib:fset (f2cl-lib:fref ae11cs (3) ((1 60))) 0.006390934911836192)
  90.   (f2cl-lib:fset (f2cl-lib:fref ae11cs (4) ((1 60))) -6.079725270524792e-4)
  91.   (f2cl-lib:fset (f2cl-lib:fref ae11cs (5) ((1 60))) -7.370649862017663e-5)
  92.   (f2cl-lib:fset (f2cl-lib:fref ae11cs (6) ((1 60))) 4.8732857449450184e-5)
  93.   (f2cl-lib:fset (f2cl-lib:fref ae11cs (7) ((1 60))) -2.3837064840448294e-6)
  94.   (f2cl-lib:fset (f2cl-lib:fref ae11cs (8) ((1 60))) -3.051861262856152e-6)
  95.   (f2cl-lib:fset (f2cl-lib:fref ae11cs (9) ((1 60))) 1.705033157256456e-7)
  96.   (f2cl-lib:fset (f2cl-lib:fref ae11cs (10) ((1 60))) 2.3834204527487746e-7)
  97.   (f2cl-lib:fset (f2cl-lib:fref ae11cs (11) ((1 60))) 1.0781772556163165e-8)
  98.   (f2cl-lib:fset (f2cl-lib:fref ae11cs (12) ((1 60))) -1.7955692847399102e-8)
  99.   (f2cl-lib:fset (f2cl-lib:fref ae11cs (13) ((1 60))) -4.1284072341950456e-9)
  100.   (f2cl-lib:fset (f2cl-lib:fref ae11cs (14) ((1 60))) 6.862214858863197e-10)
  101.   (f2cl-lib:fset (f2cl-lib:fref ae11cs (15) ((1 60))) 5.313018312050636e-10)
  102.   (f2cl-lib:fset (f2cl-lib:fref ae11cs (16) ((1 60))) 7.87968802614907e-11)
  103.   (f2cl-lib:fset (f2cl-lib:fref ae11cs (17) ((1 60))) -2.6261762329356525e-11)
  104.   (f2cl-lib:fset (f2cl-lib:fref ae11cs (18) ((1 60))) -1.5483687636308266e-11)
  105.   (f2cl-lib:fset (f2cl-lib:fref ae11cs (19) ((1 60))) -2.581896237726139e-12)
  106.   (f2cl-lib:fset (f2cl-lib:fref ae11cs (20) ((1 60))) 5.954287919159107e-13)
  107.   (f2cl-lib:fset (f2cl-lib:fref ae11cs (21) ((1 60))) 4.645140038768152e-13)
  108.   (f2cl-lib:fset (f2cl-lib:fref ae11cs (22) ((1 60))) 1.1557855023255861e-13)
  109.   (f2cl-lib:fset (f2cl-lib:fref ae11cs (23) ((1 60))) -1.0475236870835798e-15)
  110.   (f2cl-lib:fset (f2cl-lib:fref ae11cs (24) ((1 60))) -1.1896653502709002e-14)
  111.   (f2cl-lib:fset (f2cl-lib:fref ae11cs (25) ((1 60))) -4.7749077490261777e-15)
  112.   (f2cl-lib:fset (f2cl-lib:fref ae11cs (26) ((1 60))) -8.107764961577278e-16)
  113.   (f2cl-lib:fset (f2cl-lib:fref ae11cs (27) ((1 60))) 1.3435569250031557e-16)
  114.   (f2cl-lib:fset (f2cl-lib:fref ae11cs (28) ((1 60))) 1.4134530022913105e-16)
  115.   (f2cl-lib:fset (f2cl-lib:fref ae11cs (29) ((1 60))) 4.945159257395318e-17)
  116.   (f2cl-lib:fset (f2cl-lib:fref ae11cs (30) ((1 60))) 7.988404848008067e-18)
  117.   (f2cl-lib:fset (f2cl-lib:fref ae11cs (31) ((1 60))) -1.4008632188089812e-18)
  118.   (f2cl-lib:fset (f2cl-lib:fref ae11cs (32) ((1 60))) -1.481424695841737e-18)
  119.   (f2cl-lib:fset (f2cl-lib:fref ae11cs (33) ((1 60))) -5.582617364602561e-19)
  120.   (f2cl-lib:fset (f2cl-lib:fref ae11cs (34) ((1 60))) -1.1442074542191646e-19)
  121.   (f2cl-lib:fset (f2cl-lib:fref ae11cs (35) ((1 60))) 2.537182387956685e-21)
  122.   (f2cl-lib:fset (f2cl-lib:fref ae11cs (36) ((1 60))) 1.320532815480536e-20)
  123.   (f2cl-lib:fset (f2cl-lib:fref ae11cs (37) ((1 60))) 6.293026108158681e-21)
  124.   (f2cl-lib:fset (f2cl-lib:fref ae11cs (38) ((1 60))) 1.768827042488271e-21)
  125.   (f2cl-lib:fset (f2cl-lib:fref ae11cs (39) ((1 60))) 2.326618798514604e-22)
  126.   (f2cl-lib:fset (f2cl-lib:fref ae11cs (40) ((1 60))) -6.780306081112524e-23)
  127.   (f2cl-lib:fset (f2cl-lib:fref ae11cs (41) ((1 60))) -5.944087695967637e-23)
  128.   (f2cl-lib:fset (f2cl-lib:fref ae11cs (42) ((1 60))) -2.3618214531184423e-23)
  129.   (f2cl-lib:fset (f2cl-lib:fref ae11cs (43) ((1 60))) -6.021449972460148e-24)
  130.   (f2cl-lib:fset (f2cl-lib:fref ae11cs (44) ((1 60))) -6.551790647434829e-25)
  131.   (f2cl-lib:fset (f2cl-lib:fref ae11cs (45) ((1 60))) 2.938875529749772e-25)
  132.   (f2cl-lib:fset (f2cl-lib:fref ae11cs (46) ((1 60))) 2.260160620064211e-25)
  133.   (f2cl-lib:fset (f2cl-lib:fref ae11cs (47) ((1 60))) 8.953436924595864e-26)
  134.   (f2cl-lib:fset (f2cl-lib:fref ae11cs (48) ((1 60))) 2.4015923471098458e-26)
  135.   (f2cl-lib:fset (f2cl-lib:fref ae11cs (49) ((1 60))) 3.4118376888907176e-27)
  136.   (f2cl-lib:fset (f2cl-lib:fref ae11cs (50) ((1 60))) -7.161707169463034e-28)
  137.   (f2cl-lib:fset (f2cl-lib:fref ae11cs (51) ((1 60))) -7.562039065928172e-28)
  138.   (f2cl-lib:fset (f2cl-lib:fref ae11cs (52) ((1 60))) -3.3774612157467326e-28)
  139.   (f2cl-lib:fset (f2cl-lib:fref ae11cs (53) ((1 60))) -1.0479325703300943e-28)
  140.   (f2cl-lib:fset (f2cl-lib:fref ae11cs (54) ((1 60))) -2.1654550252170343e-29)
  141.   (f2cl-lib:fset (f2cl-lib:fref ae11cs (55) ((1 60))) -7.529712574528827e-31)
  142.   (f2cl-lib:fset (f2cl-lib:fref ae11cs (56) ((1 60))) 1.9103179392798936e-30)
  143.   (f2cl-lib:fset (f2cl-lib:fref ae11cs (57) ((1 60))) 1.1492104966530334e-30)
  144.   (f2cl-lib:fset (f2cl-lib:fref ae11cs (58) ((1 60))) 4.3896970582661754e-31)
  145.   (f2cl-lib:fset (f2cl-lib:fref ae11cs (59) ((1 60))) 1.2320883239205686e-31)
  146.   (f2cl-lib:fset (f2cl-lib:fref ae11cs (60) ((1 60))) 2.2220174457553177e-32)
  147.   (f2cl-lib:fset (f2cl-lib:fref ae12cs (1) ((1 41))) 0.6362958979674704)
  148.   (f2cl-lib:fset (f2cl-lib:fref ae12cs (2) ((1 41))) -0.13081168675067634)
  149.   (f2cl-lib:fset (f2cl-lib:fref ae12cs (3) ((1 41))) -0.008436741021305393)
  150.   (f2cl-lib:fset (f2cl-lib:fref ae12cs (4) ((1 41))) 0.002656849153100668)
  151.   (f2cl-lib:fset (f2cl-lib:fref ae12cs (5) ((1 41))) 3.282272178165813e-4)
  152.   (f2cl-lib:fset (f2cl-lib:fref ae12cs (6) ((1 41))) -2.378344777143025e-5)
  153.   (f2cl-lib:fset (f2cl-lib:fref ae12cs (7) ((1 41))) -1.1439804308100057e-5)
  154.   (f2cl-lib:fset (f2cl-lib:fref ae12cs (8) ((1 41))) -1.4405943433238338e-6)
  155.   (f2cl-lib:fset (f2cl-lib:fref ae12cs (9) ((1 41))) 5.241595665114883e-9)
  156.   (f2cl-lib:fset (f2cl-lib:fref ae12cs (10) ((1 41))) 3.8407306407844316e-8)
  157.   (f2cl-lib:fset (f2cl-lib:fref ae12cs (11) ((1 41))) 8.588024486026719e-9)
  158.   (f2cl-lib:fset (f2cl-lib:fref ae12cs (12) ((1 41))) 1.0219226625855005e-9)
  159.   (f2cl-lib:fset (f2cl-lib:fref ae12cs (13) ((1 41))) 2.1749132323289727e-11)
  160.   (f2cl-lib:fset (f2cl-lib:fref ae12cs (14) ((1 41))) -2.2090238142623148e-11)
  161.   (f2cl-lib:fset (f2cl-lib:fref ae12cs (15) ((1 41))) -6.345753354492875e-12)
  162.   (f2cl-lib:fset (f2cl-lib:fref ae12cs (16) ((1 41))) -1.083774656685766e-12)
  163.   (f2cl-lib:fset (f2cl-lib:fref ae12cs (17) ((1 41))) -1.1909822872222586e-13)
  164.   (f2cl-lib:fset (f2cl-lib:fref ae12cs (18) ((1 41))) -2.843868238926559e-15)
  165.   (f2cl-lib:fset (f2cl-lib:fref ae12cs (19) ((1 41))) 2.508032702668677e-15)
  166.   (f2cl-lib:fset (f2cl-lib:fref ae12cs (20) ((1 41))) 7.872964152855986e-16)
  167.   (f2cl-lib:fset (f2cl-lib:fref ae12cs (21) ((1 41))) 1.5475066347785219e-16)
  168.   (f2cl-lib:fset (f2cl-lib:fref ae12cs (22) ((1 41))) 2.257532283166508e-17)
  169.   (f2cl-lib:fset (f2cl-lib:fref ae12cs (23) ((1 41))) 2.223335286726661e-18)
  170.   (f2cl-lib:fset (f2cl-lib:fref ae12cs (24) ((1 41))) 1.6967819563544154e-20)
  171.   (f2cl-lib:fset (f2cl-lib:fref ae12cs (25) ((1 41))) -5.760831625594768e-20)
  172.   (f2cl-lib:fset (f2cl-lib:fref ae12cs (26) ((1 41))) -1.7591235774646877e-20)
  173.   (f2cl-lib:fset (f2cl-lib:fref ae12cs (27) ((1 41))) -3.6286056375103176e-21)
  174.   (f2cl-lib:fset (f2cl-lib:fref ae12cs (28) ((1 41))) -5.923556979732898e-22)
  175.   (f2cl-lib:fset (f2cl-lib:fref ae12cs (29) ((1 41))) -7.603038092631019e-23)
  176.   (f2cl-lib:fset (f2cl-lib:fref ae12cs (30) ((1 41))) -6.254784352171175e-24)
  177.   (f2cl-lib:fset (f2cl-lib:fref ae12cs (31) ((1 41))) 2.5483360759307644e-25)
  178.   (f2cl-lib:fset (f2cl-lib:fref ae12cs (32) ((1 41))) 2.559861573173985e-25)
  179.   (f2cl-lib:fset (f2cl-lib:fref ae12cs (33) ((1 41))) 7.137623935789932e-26)
  180.   (f2cl-lib:fset (f2cl-lib:fref ae12cs (34) ((1 41))) 1.4703759939567568e-26)
  181.   (f2cl-lib:fset (f2cl-lib:fref ae12cs (35) ((1 41))) 2.510552476538674e-27)
  182.   (f2cl-lib:fset (f2cl-lib:fref ae12cs (36) ((1 41))) 3.5886666387790894e-28)
  183.   (f2cl-lib:fset (f2cl-lib:fref ae12cs (37) ((1 41))) 3.98860351567713e-29)
  184.   (f2cl-lib:fset (f2cl-lib:fref ae12cs (38) ((1 41))) 2.1763676947356214e-30)
  185.   (f2cl-lib:fset (f2cl-lib:fref ae12cs (39) ((1 41))) -4.614699848761894e-31)
  186.   (f2cl-lib:fset (f2cl-lib:fref ae12cs (40) ((1 41))) -2.0713517877481988e-31)
  187.   (f2cl-lib:fset (f2cl-lib:fref ae12cs (41) ((1 41))) -5.189037856353438e-32)
  188.   (f2cl-lib:fset (f2cl-lib:fref e11cs (1) ((1 29))) -16.11346165557149)
  189.   (f2cl-lib:fset (f2cl-lib:fref e11cs (2) ((1 29))) 7.79407277874268)
  190.   (f2cl-lib:fset (f2cl-lib:fref e11cs (3) ((1 29))) -1.955405818863142)
  191.   (f2cl-lib:fset (f2cl-lib:fref e11cs (4) ((1 29))) 0.37337293866277943)
  192.   (f2cl-lib:fset (f2cl-lib:fref e11cs (5) ((1 29))) -0.05692503191092903)
  193.   (f2cl-lib:fset (f2cl-lib:fref e11cs (6) ((1 29))) 0.0072110777696600915)
  194.   (f2cl-lib:fset (f2cl-lib:fref e11cs (7) ((1 29))) -7.81049014498416e-4)
  195.   (f2cl-lib:fset (f2cl-lib:fref e11cs (8) ((1 29))) 7.388093356262169e-5)
  196.   (f2cl-lib:fset (f2cl-lib:fref e11cs (9) ((1 29))) -6.202861875808205e-6)
  197.   (f2cl-lib:fset (f2cl-lib:fref e11cs (10) ((1 29))) 4.6816002303176735e-7)
  198.   (f2cl-lib:fset (f2cl-lib:fref e11cs (11) ((1 29))) -3.2092888533298647e-8)
  199.   (f2cl-lib:fset (f2cl-lib:fref e11cs (12) ((1 29))) 2.0151997487404535e-9)
  200.   (f2cl-lib:fset (f2cl-lib:fref e11cs (13) ((1 29))) -1.1673686816697795e-10)
  201.   (f2cl-lib:fset (f2cl-lib:fref e11cs (14) ((1 29))) 6.276270667203995e-12)
  202.   (f2cl-lib:fset (f2cl-lib:fref e11cs (15) ((1 29))) -3.148154167227544e-13)
  203.   (f2cl-lib:fset (f2cl-lib:fref e11cs (16) ((1 29))) 1.4799041744493474e-14)
  204.   (f2cl-lib:fset (f2cl-lib:fref e11cs (17) ((1 29))) -6.545709158397968e-16)
  205.   (f2cl-lib:fset (f2cl-lib:fref e11cs (18) ((1 29))) 2.7336872223137293e-17)
  206.   (f2cl-lib:fset (f2cl-lib:fref e11cs (19) ((1 29))) -1.0813524349754407e-18)
  207.   (f2cl-lib:fset (f2cl-lib:fref e11cs (20) ((1 29))) 4.0628328040434303e-20)
  208.   (f2cl-lib:fset (f2cl-lib:fref e11cs (21) ((1 29))) -1.4535539358960456e-21)
  209.   (f2cl-lib:fset (f2cl-lib:fref e11cs (22) ((1 29))) 4.9632746181648646e-23)
  210.   (f2cl-lib:fset (f2cl-lib:fref e11cs (23) ((1 29))) -1.6208612696636043e-24)
  211.   (f2cl-lib:fset (f2cl-lib:fref e11cs (24) ((1 29))) 5.072144803860742e-26)
  212.   (f2cl-lib:fset (f2cl-lib:fref e11cs (25) ((1 29))) -1.523581113337221e-27)
  213.   (f2cl-lib:fset (f2cl-lib:fref e11cs (26) ((1 29))) 4.400151125610362e-29)
  214.   (f2cl-lib:fset (f2cl-lib:fref e11cs (27) ((1 29))) -1.223614194541623e-30)
  215.   (f2cl-lib:fset (f2cl-lib:fref e11cs (28) ((1 29))) 3.2809216661066004e-32)
  216.   (f2cl-lib:fset (f2cl-lib:fref e11cs (29) ((1 29))) -8.493345226830645e-34)
  217.   (f2cl-lib:fset (f2cl-lib:fref e12cs (1) ((1 25))) -0.0373902147922028)
  218.   (f2cl-lib:fset (f2cl-lib:fref e12cs (2) ((1 25))) 0.04272398606220958)
  219.   (f2cl-lib:fset (f2cl-lib:fref e12cs (3) ((1 25))) -0.13031820798497004)
  220.   (f2cl-lib:fset (f2cl-lib:fref e12cs (4) ((1 25))) 0.01441912402469889)
  221.   (f2cl-lib:fset (f2cl-lib:fref e12cs (5) ((1 25))) -0.0013461707805106802)
  222.   (f2cl-lib:fset (f2cl-lib:fref e12cs (6) ((1 25))) 1.073102925306378e-4)
  223.   (f2cl-lib:fset (f2cl-lib:fref e12cs (7) ((1 25))) -7.429999516119437e-6)
  224.   (f2cl-lib:fset (f2cl-lib:fref e12cs (8) ((1 25))) 4.537732569075371e-7)
  225.   (f2cl-lib:fset (f2cl-lib:fref e12cs (9) ((1 25))) -2.476417211390601e-8)
  226.   (f2cl-lib:fset (f2cl-lib:fref e12cs (10) ((1 25))) 1.2207658137459096e-9)
  227.   (f2cl-lib:fset (f2cl-lib:fref e12cs (11) ((1 25))) -5.485141480640924e-11)
  228.   (f2cl-lib:fset (f2cl-lib:fref e12cs (12) ((1 25))) 2.2636214213007877e-12)
  229.   (f2cl-lib:fset (f2cl-lib:fref e12cs (13) ((1 25))) -8.63589727169801e-14)
  230.   (f2cl-lib:fset (f2cl-lib:fref e12cs (14) ((1 25))) 3.0629155366933297e-15)
  231.   (f2cl-lib:fset (f2cl-lib:fref e12cs (15) ((1 25))) -1.0148571885594415e-16)
  232.   (f2cl-lib:fset (f2cl-lib:fref e12cs (16) ((1 25))) 3.1548217403406986e-18)
  233.   (f2cl-lib:fset (f2cl-lib:fref e12cs (17) ((1 25))) -9.236042407692409e-20)
  234.   (f2cl-lib:fset (f2cl-lib:fref e12cs (18) ((1 25))) 2.55504267970814e-21)
  235.   (f2cl-lib:fset (f2cl-lib:fref e12cs (19) ((1 25))) -6.699128056845668e-23)
  236.   (f2cl-lib:fset (f2cl-lib:fref e12cs (20) ((1 25))) 1.669254054353873e-24)
  237.   (f2cl-lib:fset (f2cl-lib:fref e12cs (21) ((1 25))) -3.9625492518437966e-26)
  238.   (f2cl-lib:fset (f2cl-lib:fref e12cs (22) ((1 25))) 8.981358965985113e-28)
  239.   (f2cl-lib:fset (f2cl-lib:fref e12cs (23) ((1 25))) -1.9476336699301644e-29)
  240.   (f2cl-lib:fset (f2cl-lib:fref e12cs (24) ((1 25))) 4.0483601902462996e-31)
  241.   (f2cl-lib:fset (f2cl-lib:fref e12cs (25) ((1 25))) -8.079815676998451e-33)
  242.   (f2cl-lib:fset (f2cl-lib:fref ae13cs (1) ((1 50))) -0.6057732466406035)
  243.   (f2cl-lib:fset (f2cl-lib:fref ae13cs (2) ((1 50))) -0.1125352434836609)
  244.   (f2cl-lib:fset (f2cl-lib:fref ae13cs (3) ((1 50))) 0.01343226624790278)
  245.   (f2cl-lib:fset (f2cl-lib:fref ae13cs (4) ((1 50))) -0.0019268451873811457)
  246.   (f2cl-lib:fset (f2cl-lib:fref ae13cs (5) ((1 50))) 3.091183377206032e-4)
  247.   (f2cl-lib:fset (f2cl-lib:fref ae13cs (6) ((1 50))) -5.356413212961841e-5)
  248.   (f2cl-lib:fset (f2cl-lib:fref ae13cs (7) ((1 50))) 9.827812880247494e-6)
  249.   (f2cl-lib:fset (f2cl-lib:fref ae13cs (8) ((1 50))) -1.8853689849165184e-6)
  250.   (f2cl-lib:fset (f2cl-lib:fref ae13cs (9) ((1 50))) 3.749431935689473e-7)
  251.   (f2cl-lib:fset (f2cl-lib:fref ae13cs (10) ((1 50))) -7.682345587055264e-8)
  252.   (f2cl-lib:fset (f2cl-lib:fref ae13cs (11) ((1 50))) 1.6143270567198778e-8)
  253.   (f2cl-lib:fset (f2cl-lib:fref ae13cs (12) ((1 50))) -3.4668022114907354e-9)
  254.   (f2cl-lib:fset (f2cl-lib:fref ae13cs (13) ((1 50))) 7.587542091903628e-10)
  255.   (f2cl-lib:fset (f2cl-lib:fref ae13cs (14) ((1 50))) -1.6886433329881412e-10)
  256.   (f2cl-lib:fset (f2cl-lib:fref ae13cs (15) ((1 50))) 3.8145706749552266e-11)
  257.   (f2cl-lib:fset (f2cl-lib:fref ae13cs (16) ((1 50))) -8.733026632444629e-12)
  258.   (f2cl-lib:fset (f2cl-lib:fref ae13cs (17) ((1 50))) 2.0236728645867957e-12)
  259.   (f2cl-lib:fset (f2cl-lib:fref ae13cs (18) ((1 50))) -4.741328303955583e-13)
  260.   (f2cl-lib:fset (f2cl-lib:fref ae13cs (19) ((1 50))) 1.1221172048389864e-13)
  261.   (f2cl-lib:fset (f2cl-lib:fref ae13cs (20) ((1 50))) -2.680422543484031e-14)
  262.   (f2cl-lib:fset (f2cl-lib:fref ae13cs (21) ((1 50))) 6.457851441771654e-15)
  263.   (f2cl-lib:fset (f2cl-lib:fref ae13cs (22) ((1 50))) -1.568276050166648e-15)
  264.   (f2cl-lib:fset (f2cl-lib:fref ae13cs (23) ((1 50))) 3.836786539931541e-16)
  265.   (f2cl-lib:fset (f2cl-lib:fref ae13cs (24) ((1 50))) -9.451717302757913e-17)
  266.   (f2cl-lib:fset (f2cl-lib:fref ae13cs (25) ((1 50))) 2.3434812288949575e-17)
  267.   (f2cl-lib:fset (f2cl-lib:fref ae13cs (26) ((1 50))) -5.845866158021471e-18)
  268.   (f2cl-lib:fset (f2cl-lib:fref ae13cs (27) ((1 50))) 1.466622986794778e-18)
  269.   (f2cl-lib:fset (f2cl-lib:fref ae13cs (28) ((1 50))) -3.699392347644448e-19)
  270.   (f2cl-lib:fset (f2cl-lib:fref ae13cs (29) ((1 50))) 9.379015993672125e-20)
  271.   (f2cl-lib:fset (f2cl-lib:fref ae13cs (30) ((1 50))) -2.3893673221937872e-20)
  272.   (f2cl-lib:fset (f2cl-lib:fref ae13cs (31) ((1 50))) 6.115062462949761e-21)
  273.   (f2cl-lib:fset (f2cl-lib:fref ae13cs (32) ((1 50))) -1.5718585327554024e-21)
  274.   (f2cl-lib:fset (f2cl-lib:fref ae13cs (33) ((1 50))) 4.05723872855854e-22)
  275.   (f2cl-lib:fset (f2cl-lib:fref ae13cs (34) ((1 50))) -1.0514026554738035e-22)
  276.   (f2cl-lib:fset (f2cl-lib:fref ae13cs (35) ((1 50))) 2.734966493063867e-23)
  277.   (f2cl-lib:fset (f2cl-lib:fref ae13cs (36) ((1 50))) -7.140160408020579e-24)
  278.   (f2cl-lib:fset (f2cl-lib:fref ae13cs (37) ((1 50))) 1.8705552432235079e-24)
  279.   (f2cl-lib:fset (f2cl-lib:fref ae13cs (38) ((1 50))) -4.916746816687047e-25)
  280.   (f2cl-lib:fset (f2cl-lib:fref ae13cs (39) ((1 50))) 1.2964988119684034e-25)
  281.   (f2cl-lib:fset (f2cl-lib:fref ae13cs (40) ((1 50))) -3.429251568836286e-26)
  282.   (f2cl-lib:fset (f2cl-lib:fref ae13cs (41) ((1 50))) 9.097224164388704e-27)
  283.   (f2cl-lib:fset (f2cl-lib:fref ae13cs (42) ((1 50))) -2.4202112314316862e-27)
  284.   (f2cl-lib:fset (f2cl-lib:fref ae13cs (43) ((1 50))) 6.456361293463952e-28)
  285.   (f2cl-lib:fset (f2cl-lib:fref ae13cs (44) ((1 50))) -1.7269132735340542e-28)
  286.   (f2cl-lib:fset (f2cl-lib:fref ae13cs (45) ((1 50))) 4.63086116591515e-29)
  287.   (f2cl-lib:fset (f2cl-lib:fref ae13cs (46) ((1 50))) -1.2448703637214131e-29)
  288.   (f2cl-lib:fset (f2cl-lib:fref ae13cs (47) ((1 50))) 3.354457409052068e-30)
  289.   (f2cl-lib:fset (f2cl-lib:fref ae13cs (48) ((1 50))) -9.059886852107077e-31)
  290.   (f2cl-lib:fset (f2cl-lib:fref ae13cs (49) ((1 50))) 2.4524147051474235e-31)
  291.   (f2cl-lib:fset (f2cl-lib:fref ae13cs (50) ((1 50))) -6.652817873355207e-32)
  292.   (f2cl-lib:fset (f2cl-lib:fref ae14cs (1) ((1 64))) -0.1892918000753017)
  293.   (f2cl-lib:fset (f2cl-lib:fref ae14cs (2) ((1 64))) -0.08648117855259872)
  294.   (f2cl-lib:fset (f2cl-lib:fref ae14cs (3) ((1 64))) 0.007224101543746595)
  295.   (f2cl-lib:fset (f2cl-lib:fref ae14cs (4) ((1 64))) -8.097559457557385e-4)
  296.   (f2cl-lib:fset (f2cl-lib:fref ae14cs (5) ((1 64))) 1.0999134432661391e-4)
  297.   (f2cl-lib:fset (f2cl-lib:fref ae14cs (6) ((1 64))) -1.7173329989377673e-5)
  298.   (f2cl-lib:fset (f2cl-lib:fref ae14cs (7) ((1 64))) 2.985627514479283e-6)
  299.   (f2cl-lib:fset (f2cl-lib:fref ae14cs (8) ((1 64))) -5.65964914577193e-7)
  300.   (f2cl-lib:fset (f2cl-lib:fref ae14cs (9) ((1 64))) 1.15268083971414e-7)
  301.   (f2cl-lib:fset (f2cl-lib:fref ae14cs (10) ((1 64))) -2.4950304402693382e-8)
  302.   (f2cl-lib:fset (f2cl-lib:fref ae14cs (11) ((1 64))) 5.692324201833754e-9)
  303.   (f2cl-lib:fset (f2cl-lib:fref ae14cs (12) ((1 64))) -1.3599576648056005e-9)
  304.   (f2cl-lib:fset (f2cl-lib:fref ae14cs (13) ((1 64))) 3.384662888760885e-10)
  305.   (f2cl-lib:fset (f2cl-lib:fref ae14cs (14) ((1 64))) -8.737853904474682e-11)
  306.   (f2cl-lib:fset (f2cl-lib:fref ae14cs (15) ((1 64))) 2.3315886632226598e-11)
  307.   (f2cl-lib:fset (f2cl-lib:fref ae14cs (16) ((1 64))) -6.411481049213786e-12)
  308.   (f2cl-lib:fset (f2cl-lib:fref ae14cs (17) ((1 64))) 1.8122469802048163e-12)
  309.   (f2cl-lib:fset (f2cl-lib:fref ae14cs (18) ((1 64))) -5.253831761558461e-13)
  310.   (f2cl-lib:fset (f2cl-lib:fref ae14cs (19) ((1 64))) 1.5592182725919257e-13)
  311.   (f2cl-lib:fset (f2cl-lib:fref ae14cs (20) ((1 64))) -4.7291682970804e-14)
  312.   (f2cl-lib:fset (f2cl-lib:fref ae14cs (21) ((1 64))) 1.4637618643932432e-14)
  313.   (f2cl-lib:fset (f2cl-lib:fref ae14cs (22) ((1 64))) -4.6173889887129244e-15)
  314.   (f2cl-lib:fset (f2cl-lib:fref ae14cs (23) ((1 64))) 1.4827103482893694e-15)
  315.   (f2cl-lib:fset (f2cl-lib:fref ae14cs (24) ((1 64))) -4.8416724962392294e-16)
  316.   (f2cl-lib:fset (f2cl-lib:fref ae14cs (25) ((1 64))) 1.6062155757002908e-16)
  317.   (f2cl-lib:fset (f2cl-lib:fref ae14cs (26) ((1 64))) -5.408917538957171e-17)
  318.   (f2cl-lib:fset (f2cl-lib:fref ae14cs (27) ((1 64))) 1.8474701593468976e-17)
  319.   (f2cl-lib:fset (f2cl-lib:fref ae14cs (28) ((1 64))) -6.395830792759095e-18)
  320.   (f2cl-lib:fset (f2cl-lib:fref ae14cs (29) ((1 64))) 2.2427807216997597e-18)
  321.   (f2cl-lib:fset (f2cl-lib:fref ae14cs (30) ((1 64))) -7.961369173983949e-19)
  322.   (f2cl-lib:fset (f2cl-lib:fref ae14cs (31) ((1 64))) 2.859308111540198e-19)
  323.   (f2cl-lib:fset (f2cl-lib:fref ae14cs (32) ((1 64))) -1.0384502447011372e-19)
  324.   (f2cl-lib:fset (f2cl-lib:fref ae14cs (33) ((1 64))) 3.8120406070979757e-20)
  325.   (f2cl-lib:fset (f2cl-lib:fref ae14cs (34) ((1 64))) -1.4137954177172007e-20)
  326.   (f2cl-lib:fset (f2cl-lib:fref ae14cs (35) ((1 64))) 5.295367865182741e-21)
  327.   (f2cl-lib:fset (f2cl-lib:fref ae14cs (36) ((1 64))) -2.002264245026826e-21)
  328.   (f2cl-lib:fset (f2cl-lib:fref ae14cs (37) ((1 64))) 7.640262751275196e-22)
  329.   (f2cl-lib:fset (f2cl-lib:fref ae14cs (38) ((1 64))) -2.9411190068687876e-22)
  330.   (f2cl-lib:fset (f2cl-lib:fref ae14cs (39) ((1 64))) 1.1418235390789273e-22)
  331.   (f2cl-lib:fset (f2cl-lib:fref ae14cs (40) ((1 64))) -4.4693084759552987e-23)
  332.   (f2cl-lib:fset (f2cl-lib:fref ae14cs (41) ((1 64))) 1.7632624105717506e-23)
  333.   (f2cl-lib:fset (f2cl-lib:fref ae14cs (42) ((1 64))) -7.009968187925902e-24)
  334.   (f2cl-lib:fset (f2cl-lib:fref ae14cs (43) ((1 64))) 2.8075735565583787e-24)
  335.   (f2cl-lib:fset (f2cl-lib:fref ae14cs (44) ((1 64))) -1.1325609449810863e-24)
  336.   (f2cl-lib:fset (f2cl-lib:fref ae14cs (45) ((1 64))) 4.6005746843750167e-25)
  337.   (f2cl-lib:fset (f2cl-lib:fref ae14cs (46) ((1 64))) -1.8814485989761334e-25)
  338.   (f2cl-lib:fset (f2cl-lib:fref ae14cs (47) ((1 64))) 7.744916111507731e-26)
  339.   (f2cl-lib:fset (f2cl-lib:fref ae14cs (48) ((1 64))) -3.208512760585369e-26)
  340.   (f2cl-lib:fset (f2cl-lib:fref ae14cs (49) ((1 64))) 1.33744554291084e-26)
  341.   (f2cl-lib:fset (f2cl-lib:fref ae14cs (50) ((1 64))) -5.608671881802219e-27)
  342.   (f2cl-lib:fset (f2cl-lib:fref ae14cs (51) ((1 64))) 2.3658397165285375e-27)
  343.   (f2cl-lib:fset (f2cl-lib:fref ae14cs (52) ((1 64))) -1.0036561950253053e-27)
  344.   (f2cl-lib:fset (f2cl-lib:fref ae14cs (53) ((1 64))) 4.281490878094162e-28)
  345.   (f2cl-lib:fset (f2cl-lib:fref ae14cs (54) ((1 64))) -1.836345261815318e-28)
  346.   (f2cl-lib:fset (f2cl-lib:fref ae14cs (55) ((1 64))) 7.91779823134954e-29)
  347.   (f2cl-lib:fset (f2cl-lib:fref ae14cs (56) ((1 64))) -3.4315423587422206e-29)
  348.   (f2cl-lib:fset (f2cl-lib:fref ae14cs (57) ((1 64))) 1.4947054938971033e-29)
  349.   (f2cl-lib:fset (f2cl-lib:fref ae14cs (58) ((1 64))) -6.542620279865705e-30)
  350.   (f2cl-lib:fset (f2cl-lib:fref ae14cs (59) ((1 64))) 2.8775813951991713e-30)
  351.   (f2cl-lib:fset (f2cl-lib:fref ae14cs (60) ((1 64))) -1.2715572117960244e-30)
  352.   (f2cl-lib:fset (f2cl-lib:fref ae14cs (61) ((1 64))) 5.644615555648722e-31)
  353.   (f2cl-lib:fset (f2cl-lib:fref ae14cs (62) ((1 64))) -2.5169949942840947e-31)
  354.   (f2cl-lib:fset (f2cl-lib:fref ae14cs (63) ((1 64))) 1.1272598189275103e-31)
  355.   (f2cl-lib:fset (f2cl-lib:fref ae14cs (64) ((1 64))) -5.069814875800461e-32)
  356.   (setq first f2cl-lib:%true%)
  357.   (defun de1 (x)
  358.     (declare (type double-float x))
  359.     (prog ((xmaxt 0.0) (de1 0.0) (eta 0.0f0))
  360.       (declare (type single-float eta) (type double-float de1 xmaxt))
  361.       (cond
  362.        (first (setf eta (* 0.1f0 (f2cl-lib:freal (f2cl-lib:d1mach 3))))
  363.               (setf ntae10 (initds ae10cs 50 eta))
  364.               (setf ntae11 (initds ae11cs 60 eta))
  365.               (setf ntae12 (initds ae12cs 41 eta))
  366.               (setf nte11 (initds e11cs 29 eta))
  367.               (setf nte12 (initds e12cs 25 eta))
  368.               (setf ntae13 (initds ae13cs 50 eta))
  369.               (setf ntae14 (initds ae14cs 64 eta))
  370.               (setf xmaxt (- (f2cl-lib:flog (f2cl-lib:d1mach 1))))
  371.               (setf xmax (- xmaxt (f2cl-lib:flog xmaxt)))))
  372.       (setf first f2cl-lib:%false%)
  373.       (if (> x -1.0) (go label50))
  374.       (if (> x -32.0) (go label20))
  375.       (setf de1
  376.               (* (/ (exp (- x)) x)
  377.                  (+ 1.0 (dcsevl (+ (/ 64.0 x) 1.0) ae10cs ntae10))))
  378.       (go end_label)
  379.      label20
  380.       (if (> x -8.0) (go label30))
  381.       (setf de1
  382.               (* (/ (exp (- x)) x)
  383.                  (+ 1.0 (dcsevl (/ (+ (/ 64.0 x) 5.0) 3.0) ae11cs ntae11))))
  384.       (go end_label)
  385.      label30
  386.       (if (> x -4.0) (go label40))
  387.       (setf de1
  388.               (* (/ (exp (- x)) x)
  389.                  (+ 1.0 (dcsevl (+ (/ 16.0 x) 3.0) ae12cs ntae12))))
  390.       (go end_label)
  391.      label40
  392.       (setf de1
  393.               (- (dcsevl (/ (+ (* 2.0 x) 5.0) 3.0) e11cs nte11)
  394.                  (f2cl-lib:flog (- x))))
  395.       (go end_label)
  396.      label50
  397.       (if (> x 1.0) (go label60))
  398.       (if (= x 0.0) (xermsg "SLATEC" "DE1" "X IS 0" 2 2))
  399.       (setf de1
  400.               (+ (- -0.6875 (f2cl-lib:flog (abs x))) x (dcsevl x e12cs nte12)))
  401.       (go end_label)
  402.      label60
  403.       (if (> x 4.0) (go label70))
  404.       (setf de1
  405.               (* (/ (exp (- x)) x)
  406.                  (+ 1.0 (dcsevl (/ (- (/ 8.0 x) 5.0) 3.0) ae13cs ntae13))))
  407.       (go end_label)
  408.      label70
  409.       (if (> x xmax) (go label80))
  410.       (setf de1
  411.               (* (/ (exp (- x)) x)
  412.                  (+ 1.0 (dcsevl (- (/ 8.0 x) 1.0) ae14cs ntae14))))
  413.       (go end_label)
  414.      label80
  415.       (xermsg "SLATEC" "DE1" "X SO BIG E1 UNDERFLOWS" 1 1)
  416.       (setf de1 0.0)
  417.       (go end_label)
  418.      end_label
  419.       (return (values de1 nil)))))
  420.  
  421.